sub PrintList{
   my @list = @_;
   print "Given list is @list\n";
}
$a = 10;
@b = (1, 2, 3, 4);

# Function call with list parameter
PrintList($a, @b);
#单独的变量a被放置到最后一个元素的列表中了，无法分别它究竟是单独的一个变量放入了参数中
#还是他原本就是列表中的一个元素

PrintList(@b,$a);